home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / games / g266.dms / in.adf / truckin.on < prev   
Encoding:
Text File  |  1998-09-16  |  13.8 KB  |  553 lines
  1. REM ******* TRUCKING ON ********
  2. CLEAR, 90000&
  3. GOSUB checkmem
  4. DECLARE FUNCTION xOpen& LIBRARY
  5. DECLARE FUNCTION xRead& LIBRARY
  6. DECLARE FUNCTION AllocMem& LIBRARY
  7. DECLARE FUNCTION move& LIBRARY
  8. DECLARE FUNCTION opendiskfont& LIBRARY
  9. DECLARE FUNCTION openfont& LIBRARY
  10. DECLARE FUNCTION Examine% LIBRARY
  11. DECLARE FUNCTION ExNext% LIBRARY
  12. DECLARE FUNCTION Lock& LIBRARY
  13. DECLARE FUNCTION IoErr% LIBRARY
  14. LIBRARY "dos.library"
  15. LIBRARY "exec.library"
  16. LIBRARY "graphics.library"
  17. LIBRARY "diskfont.library"
  18. WINDOW CLOSE WINDOW(0)
  19. GOTO sstart
  20. SUB xyptab(xx%,yy%) STATIC
  21. e&= move&(WINDOW(8),xx%,yy%)
  22. END SUB
  23. SUB makesound(f%) STATIC
  24. WAVE 0,SIN:SOUND f%,1,255,1
  25. END SUB
  26. SUB GetDir (dir$, max%) STATIC
  27. SHARED count%
  28. count%=0:e%=0
  29. dir$=dir$+CHR$(0):add&=Lock&(SADD(dir$),-2)
  30. info&=AllocMem&(252,65536&)
  31. suc%=Examine%(add&,info&)   
  32. WHILE e%<>232
  33. dir.name&=info&+8
  34. FOR lp%=0 TO 29
  35. ch%=PEEK(dir.name&+lp%)
  36. IF ch%<>0 THEN a$=a$+CHR$(ch%) ELSE lp%=29
  37. NEXT 
  38. IF RIGHT$(a$,1)<>"*" THEN skip
  39. dirname$(count%)=a$:count%=count%+1
  40. skip:    
  41. a$="":suc%=ExNext%(add&,info&)
  42. IF suc%=0 THEN e%=IoErr% ELSE ctr%=ctr%+1
  43. WEND
  44. CALL FreeMem(info&,252)
  45. CALL Unlock(add&)
  46. max%=ctr%
  47. END SUB
  48. SUB fontset (fontname$,fontheight%) STATIC
  49. f.old&=PEEKL(WINDOW(8)+52)
  50. f.pref&=0
  51. fontname0$=fontname$+".font"+CHR$(0)
  52. tattr&(0)=SADD(fontname0$)
  53. tattr&(1)=fontheight%*2^16+f.pref%
  54. f.new&=openfont&(VARPTR(tattr&(0)))
  55. f.check%=PEEKW (WINDOW(8)+60)
  56. IF f.new&=0 THEN
  57. f.new&=opendiskfont&(VARPTR(tattr&(0)))
  58. ELSEIF f.check%<>fonthieght% THEN
  59. CALL closefont(f.new&)
  60. f.new&=opendiskfont&(VARPTR(tattr&(0)))
  61. END IF
  62. IF f.new&<>0 THEN
  63. CALL closefont(f.old&)
  64. CALL setfont(WINDOW(8),f.new&)
  65. ELSEIF UCASE$(fontname$)="UNDO" THEN
  66. CALL closefont(f.old&)
  67. CALL setfont(origonal&)
  68. ELSE
  69. BEEP
  70. END IF
  71. END SUB
  72. looad:
  73. b$="LOAD":
  74. GOSUB setdirectory
  75. IF w$="" AND truck&=33333& THEN WINDOW 2:RETURN 
  76. IF w$="" THEN WINDOW 3:RETURN
  77. LOCATE 10,24:PRINT "File OK loading"
  78. WINDOW OUTPUT 3:OBJECT.CLOSE
  79. a$="main:games/"+w$
  80. OPEN a$ FOR INPUT AS #1
  81. FOR x%=0 TO 1
  82. INPUT #1,credit&(x%):INPUT #1,homeport%(x%):INPUT #1,co.name$(x%)
  83. INPUT #1,tcount%(x%):INPUT #1,money&(x%):INPUT #1,tract%(x%,x%)
  84. FOR y%=0 TO 5
  85. INPUT #1,tname$(x%,y%):INPUT #1,morg&(x%,y%):INPUT #1,shares%(x%,y%)
  86. FOR t%=0 TO 20
  87. INPUT #1,truck%(x%,y%,t%)
  88. NEXT t%
  89. FOR t%=0 TO 5
  90. INPUT #1,tmove!(x%,y%,t%)
  91. NEXT t%,y%,x%
  92. INPUT #1,tc%:INPUT #1,am%:INPUT #1,week%:INPUT #1,day%
  93. INPUT #1,finishy%:INPUT #1,startx%:INPUT #1,starty%:INPUT #1,duration%
  94. CLOSE #1:WINDOW OUTPUT 3
  95. FOR t%=0 TO tcount%(0)-1
  96. OBJECT.SHAPE t%+1,sprite$(0):OBJECT.X t%+1,tmove!(0,t%,2)
  97. OBJECT.Y t%+1,tmove!(0,t%,3):NEXT
  98. FOR t%=0 TO tcount%(1)-1
  99. OBJECT.SHAPE t%+6,sprite$(1):OBJECT.X t%+6,tmove!(1,t%,2)
  100. OBJECT.Y t%+6,tmove!(1,t%,3):NEXT
  101. IF truck&=33333& THEN RETURN
  102. OBJECT.ON:GOSUB newstart:WINDOW 3:RETURN
  103. setdirectory:
  104. WINDOW OUTPUT 4:IF win4%>6 THEN fontset "topaz",8
  105. win4%=0:PALETTE 0,0,0,0:PALETTE 1,1,1,1:PALETTE 2,.5,.5,.5
  106. COLOR 0,0:CLS
  107. x%=50:w$="":count%=0:GetDir "main:games",x%
  108. d%=26+8*count%:COLOR 2,0      
  109. LINE (10,4)-(178,19),1,b:LINE (10,20)-(178,d%),1,b       
  110. LINE (10,d%)-(178,d%+16),1,b:LINE (10,d%+17)-(178,d%+33),1,b 
  111. LINE (8,2)-(180,d%+35),1,b:LOCATE 2,3:PRINT "OBJECT-"b$" A FILE"
  112. LOCATE 5+count%,3:PRINT "NAME:":LOCATE 7+count%,3:PRINT b$":- FILE ABOVE"
  113. LOCATE 5,30:PRINT "CANCEL":LINE (223,27)-(287,43),1,b
  114. LINE (221,25)-(289,45),1,b:WINDOW 4:LOCATE 4,3 
  115. FOR t%=0 TO count%-1:PRINT TAB(3)dirname$(t%):NEXT 
  116. dirloop:      
  117. GOSUB checkmouse
  118. GOSUB mousepointer
  119. IF x%>222 AND x%<288 AND y%<44 AND y%>26 THEN w$="":RETURN
  120. IF x%<10 OR x%>178 THEN dirloop
  121. IF y%>23 AND y%<d%-2 THEN maindir
  122. IF y%>d% AND y%<d%+16 THEN namedir
  123. IF y%>d%+17 AND y%<d%+33 THEN getfile
  124. GOTO dirloop      
  125. maindir:                               
  126. LOCATE 5+count%,8:PRINT "              "
  127. y%=y%-23:t%=y%\8
  128. LOCATE 5+count%,8:PRINT dirname$(t%)
  129. makesound 750  
  130. w$=dirname$(t%)
  131. GOTO dirloop
  132. getfile:
  133. IF w$="" THEN dirloop
  134. makesound 750
  135. RETURN    
  136. namedir:
  137. IF b$="LOAD" THEN BEEP:GOTO dirloop
  138. c2%=0:c1%=2:maxlen%=14:y%=5+count%:x%=8:lo%=48:hi%=91
  139. gtname:
  140. a$=INKEY$:l%=0:w$=""
  141. gn: COLOR c2%,c1%:LOCATE y%,x%+l%:PRINT " "; 
  142. 11 : a$=INKEY$:IF a$="" THEN 11
  143. LOCATE y%,x%+l%:COLOR c1%,c2%
  144. IF a$=CHR$(8) THEN del
  145. a$=UCASE$(a$)
  146. IF a$=CHR$(13) THEN PRINT " ";:RETURN
  147. IF ASC(a$)<lo% OR ASC(a$)>hi% THEN gn
  148. PRINT a$;:w$=w$+a$:l%=LEN(w$)
  149. IF l%=maxlen% THEN RETURN
  150. GOTO gn
  151. del: 
  152. IF w$="" THEN gn
  153. PRINT " ";:w$=LEFT$(w$,l%-1)
  154. l%=LEN(w$):GOTO gn
  155. checkmouse:
  156. WHILE MOUSE(0)<>0:WEND
  157. RETURN
  158. mousepointer:
  159. WHILE MOUSE(0)=0
  160. x%=MOUSE(1):y%=MOUSE(2)
  161. WEND:makesound 750
  162. RETURN
  163. sstart:
  164. SCREEN 3,320,200,3,1:WINDOW 4,,,0,3
  165. SCREEN 4,320,256,5,1:WINDOW 6,,,0,4
  166. SCREEN 2,320,256,5,1:WINDOW 2,,,0,2
  167. SCREEN 1,320,256,5,1:WINDOW 3,,,0,1
  168. DIM cargo$(19),cargo%(12),cargorates!(19),city$(19),city%(10),dist%(18,18)
  169. DIM truck%(1,5,20),homeport%(1),tract%(1,1),sprite$(1)
  170. DIM shareprice%(5),shares%(1,5),no%(5)
  171. DIM sharename$(4)
  172. DIM SHARED dirname$(50)
  173. DIM day$(6)
  174. DIM co.name$(1),tname$(1,5),tcount%(1),truck&(2),trprice%(6)
  175. DIM money&(2),getput%(4000),topline%(2000),morg&(1,5),credit&(1)
  176. DIM tmove!(1,5,5),tattr&(1)
  177. DIM cityy%(18),cityx%(18)
  178. OPEN "main:tr.sp.col2" FOR INPUT AS 1
  179. sprite$(0)= INPUT$(LOF(1),1)
  180. CLOSE 1
  181. OPEN "main:tr.sp.col1" FOR INPUT AS 1
  182. sprite$(1)= INPUT$(LOF(1),1)
  183. CLOSE 1
  184. money&(1)=10000&:money&(0)=10000&:finishy%=220
  185. day%=1:tc%=1:week%=1:shval%=1:startx%=300:starty%=220
  186. start:
  187. WINDOW OUTPUT 2
  188. PALETTE 0,0,0,0
  189. PALETTE 1,0,0,0
  190. PALETTE 21,1,1,1
  191. fontset "truckdata",13
  192. PRINT 
  193. COLOR 7,8:PRINT TAB(4)"(TRUCKIN ON)";:COLOR 5,0:PRINT "`by`ron`lewis"
  194. COLOR 6,9:PRINT :PRINT TAB (7)"(DO YOU WISH TO:- )"
  195. PRINT :COLOR 10,13
  196. PRINT TAB(7)"(LOAD A SAVED GAME)"
  197. PRINT TAB(7)"(START A NEW GAME )"
  198. PRINT TAB(7)"(SEE INSTRUCTIONS )"
  199. WINDOW 2:truck&=33333&
  200. lloop:
  201. GOSUB checkmouse
  202. GOSUB mousepointer
  203. IF x%<62 OR x%>251 THEN lloop
  204. IF y%<63 OR y%>100 THEN lloop
  205. y%=y%-50:e%=y%\13
  206. GOSUB reversebloc:makesound 750
  207. ON e% GOTO oldgame,newgame,instructions
  208. GOTO lloop
  209. reversebloc:
  210. AREA (61,50+(e%*13)):AREA (248,50+(e%*13))
  211. AREA (248,60+(e%*13)):AREA (61,60+(e%*13))
  212. AREAFILL 1
  213. RETURN
  214. oldgame:
  215. GOSUB looad
  216. IF w$="" THEN WINDOW 2:GOSUB reversebloc:GOTO lloop
  217. GOTO letsgo
  218. instructions:
  219. IF win3%=1 THEN exin
  220. b&=AllocMem&(64,65537&)
  221. IF b&=0 THEN ERROR 7
  222. file$="main:instruct"+CHR$(0)
  223. h&=xOpen&(SADD(file$),1005)
  224. WINDOW OUTPUT 3
  225. viewport&=PEEKL(WINDOW(7)+46)+44
  226. CALL LoadRGB4(viewport&,b&,2)
  227. FOR i%=0 TO 0
  228. ad&=PEEKL(PEEKL(WINDOW(8)+4)+8+4*i%)
  229. r&=xRead&(h&,ad&,10240&)
  230. NEXT
  231. r&=xRead&(h&,b&,64)
  232. CALL xClose(h&)
  233. CALL LoadRGB4(viewport&,b&,2)
  234. CALL FreeMem(b&,64)
  235. WINDOW OUTPUT 2:GOSUB reversebloc
  236. exin:
  237. WINDOW 3:win3%=1
  238. GOSUB checkmouse
  239. GOSUB mousepointer
  240. WINDOW 2
  241. GOTO lloop
  242. newgame:
  243. WINDOW OUTPUT 6
  244. PALETTE 0,0,0,0
  245. PALETTE 1,0,0,0
  246. COLOR 0,0:CLS
  247. LINE (130,29)-(300,57),17,bf
  248. LINE (130,61)-(300,90),4,bf
  249. y1%=5:y%=0
  250. FOR PLAYER%=0 TO 1
  251. IF PLAYER%=0 THEN c1%=17 ELSE c1%=4
  252. COLOR c1%,31:LOCATE 2,1
  253. PRINT " PLAYER"PLAYER%+1"PICK A COMPANY NAME  "
  254. RESTORE coname:COLOR 31,c1%: FOR t%=0 TO 18
  255. READ city$(t%):xyptab 5,30+y%:PRINT city$(t%):y%=y%+9
  256. NEXT
  257. WINDOW 6
  258. GOSUB choosecompany
  259. LOCATE y1%,23:PRINT "PLAYER"PLAYER%+1
  260. PRINT TAB(18)"Co.name."MID$(city$(namex%),2,9)
  261. co.name$(PLAYER%)=MID$(city$(namex%),2,9)
  262. COLOR c1%,31:LOCATE 2,1
  263. PRINT " PLAYER"PLAYER%+1"PICK A HOME BASE CITY "
  264. y%=0
  265. RESTORE cities:COLOR 31,c1%: FOR t%=0 TO 18
  266. READ city$(t%):xyptab 5,30+y%:PRINT MID$(city$(t%),2,12):y%=y%+9
  267. NEXT
  268. GOSUB choosecompany
  269. LOCATE y1%+2,18
  270. PRINT " HOME..."MID$(city$(namex%),2,12)
  271. homeport%(PLAYER%)=namex%
  272. GOSUB checkmouse
  273. y1%=9:y%=0:
  274. NEXT
  275. timedgame:
  276. COLOR 3,0:LOCATE 2,1
  277. PRINT "CHOOSE SIMULATED PLAYING DURATION."
  278. LINE (1,24)-(104,194),0,bf
  279. y%=24:y1%=39:tc%=16:c1%=5
  280. FOR t%=6 TO 12 STEP 2
  281. LINE (1,y%)-(96,y%+32),10,b
  282. LINE (2,y%+1)-(95,y%+31),c1%,bf
  283. COLOR 1,c1%
  284. xyptab 16,y1%:PRINT "PLAY FOR"
  285. xyptab 8,y1%+9:PRINT t%"WEEKS"
  286. y%=y%+34:y1%=y1%+34:c1%=c1%+2
  287. NEXT
  288. LINE (1,y%)-(96,y%+32),10,b
  289. LINE (2,y%+1)-(95,y%+31),c1%,bf
  290. COLOR 1,c1%
  291. xyptab 10,y1%:PRINT "PLAY UNTIL"
  292. xyptab 6,y1%+9:PRINT "ZOMBIE LAND"
  293. llooppy:
  294. GOSUB mousepointer
  295. IF x%<4 OR x%>98 THEN llooppy
  296. IF y%<26 OR y%>192 THEN llooppy
  297. IF y%>26 AND y%<56 THEN duration%=6:y%=24:GOTO happy
  298. IF y%>59 AND y%<90 THEN duration%=8:y%=58:GOTO happy
  299. IF y%>93 AND y%<124 THEN duration%=10:y%=92:GOTO happy
  300. IF y%>127 AND y%<158 THEN duration%=12:y%=126:GOTO happy
  301. IF y%>161 AND y%<192 THEN duration%=80:y%=160:GOTO happy
  302. GOTO llooppy
  303. happy:
  304. AREA (1,y%):AREA STEP(95,0):AREA STEP(0,32):AREA STEP(-95,0)
  305. AREAFILL 1                                
  306. y1%=9:y%=0:COLOR 0,14
  307. LOCATE y1%+6,18:PRINT "OK:- LETS GO!"
  308. LINE (135,111)-(240,120),10,b
  309. COLOR 0,13
  310. LOCATE y1%+9,18:PRINT "I GOT IT WRONG!!"
  311. LINE (135,135)-(264,144),5,b
  312. holdit:
  313. WHILE MOUSE(0)<>0:WEND
  314.  
  315. GOSUB mousepointer
  316. day%=0:tc%=1:week%=1:am%=8
  317. IF x%<135 OR x%>264 THEN holdit
  318. IF y%>134 AND y%<145 THEN WINDOW 2:GOSUB reversebloc:GOTO lloop
  319. IF y%>110 AND y%<121 THEN letsgo
  320. GOTO holdit
  321. choosecompany:
  322. GOSUB checkmouse
  323. GOSUB mousepointer
  324. IF x%<5 OR x%>102 THEN choosecompany
  325. IF y%<25 OR y%>204 THEN choosecompany
  326. namex%=(y%-25)\9
  327. RETURN
  328. letsgo:
  329. WINDOW OUTPUT 6
  330. b&=AllocMem&(64,65537&)
  331. IF b&=0 THEN ERROR 7
  332. file$="main:title"+CHR$(0)
  333. h&=xOpen&(SADD(file$),1005)
  334. viewport&=PEEKL(WINDOW(7)+46)+44
  335. WINDOW 6
  336. CALL LoadRGB4(viewport&,b&,32)
  337. FOR i%=0 TO 4
  338. ad&=PEEKL(PEEKL(WINDOW(8)+4)+8+4*i%)
  339. r&=xRead&(h&,ad&,10240&)
  340. NEXT
  341. r&=xRead&(h&,b&,64)
  342. CALL xClose(h&)
  343. CALL LoadRGB4(viewport&,b&,32)
  344. CALL FreeMem(b&,64)
  345. LOCATE 11,1:PRINT "READIN DATA"
  346. truck&=0
  347. RESTORE tpricee
  348. FOR t%=1 TO 6:READ trprice%(t%):NEXT
  349. RESTORE t.cargo
  350. FOR t%=0 TO 19
  351. READ cargo$(t%),cargorates!(t%)
  352. NEXT
  353. RESTORE cities
  354. FOR t%=0 TO 19
  355. READ city$(t%)
  356. NEXT 
  357. RESTORE distances
  358. FOR t%=0 TO 18
  359. FOR tt%=0 TO 18
  360. READ dist%(t%,tt%)
  361. NEXT:NEXT
  362. pinpoint:
  363. RESTORE coordinates
  364. FOR t%=0 TO 18
  365. READ cityx%(t%),cityy%(t%)
  366. NEXT
  367. RESTORE timedata             
  368. FOR t%=0 TO 6
  369. READ day$(t%)
  370. NEXT
  371. sharename$(0)="(AGRICULTURE)"
  372. sharename$(1)="( TRANSPORT )"
  373. sharename$(2)="(  MINING   )"
  374. sharename$(3)="(  TOURISM  )"
  375. sharename$(4)="(  DEFENCE  )"
  376. GOTO endprog
  377. 'BRISBANE:
  378. distances:
  379. DATA 0,363,671,1467,1911
  380. DATA 3497,3057,3168,3493,0
  381. DATA 4317,4911,4390
  382. DATA 1977,2131
  383. DATA 1755,1736
  384. DATA 1295,1027
  385. 'GOONDIWINDI:
  386. DATA 363,0,693,1453,1788
  387. DATA 3129,2893,3107,3432,0
  388. DATA 4296,4850,4185
  389. DATA 1677,1831
  390. DATA 1455,1376
  391. DATA 1287,1053
  392. 'ROCKHAMPTON:
  393. DATA 671,693,0,796,1325
  394. DATA 2965,2525,2660,2985,0
  395. DATA 3799,4393,5061
  396. DATA 2149,2258
  397. DATA 2426,2057
  398. DATA 1966,1699
  399. 'TOWNSVILLE:
  400. DATA 1467,1453,796,0,910
  401. DATA 2536,2096,2231,0,0
  402. DATA 3380,3974,5728
  403. DATA 2829,2925
  404. DATA 3222,2857
  405. DATA 2765,2494
  406. 'MT.ISA:
  407. DATA 1911,1788,1325,910,0
  408. DATA 1622,1157,1351,1676,0
  409. DATA 2406,3006,3844
  410. DATA 2526,2862
  411. DATA 3243,3164
  412. DATA 3075,2841
  413. 'A/ROCK:
  414. DATA 3497,3129,2965,2536,1622
  415. DATA 0,440,1637,1962,2157
  416. DATA 2786,3380,3735
  417. DATA 1322,1658
  418. DATA 1911,2403
  419. DATA 2721,2897
  420. 'A/SPRINGS
  421. DATA 3057,2893,2525,2096,1157
  422. DATA 440,0,1197,1522,1717
  423. DATA 2346,2940,3767
  424. DATA 1354,1690
  425. DATA 1943,2435
  426. DATA 2753,2929
  427. 'KATHERINE:
  428. DATA 3168,3107,2660,2231,1351
  429. DATA 1637,1197,0,325,520
  430. DATA 1638,2232,4017
  431. DATA 2551,2887
  432. DATA 3140,3632
  433. DATA 3904,3735
  434. 'DARWIN:
  435. DATA 3493,3432,2985,0,1676
  436. DATA 1962,1522,325,0,845
  437. DATA 1963,2557,4342
  438. DATA 2876,3212
  439. DATA 3465,3957
  440. DATA 4229,4060
  441. 'GOVE:
  442. DATA 0,0,0,0,0
  443. DATA 2157,1717,520,845,0
  444. DATA 2158,2752,4537
  445. DATA 0,0
  446. DATA 0,0
  447. DATA 0,0
  448. 'BROOME:
  449. DATA 4317,4296,3799,3380,2406
  450. DATA 2786,2346,1638,1963,2158
  451. DATA 0,668,2416
  452. DATA 3700,4036
  453. DATA 4289,4781
  454. DATA 5099,4883
  455. 'P/HEADLAND:
  456. DATA 4911,4850,4393,3974,3006
  457. DATA 3380,2940,2232,2557,2752
  458. DATA 668,0,1770
  459. DATA 4183,4519
  460. DATA 4772,5264
  461. DATA 5582,5551
  462. 'PERTH:
  463. DATA 4390,4185,5061,5728,3844
  464. DATA 3735,3767,4017,4342,4537
  465. DATA 2416,1770,0
  466. DATA 0,0
  467. DATA 0,0
  468. DATA 0,0
  469. 'P/AUGUSTA:
  470. DATA 1977,1677,2149,2829,2526
  471. DATA 1322,1354,2551,2876,0
  472. DATA 3700,4183,0
  473. DATA 0,336
  474. DATA 589,1081
  475. DATA 1399,1575
  476. 'ADELAIDE:
  477. DATA 2131,1831,2258,2925,2862
  478. DATA 1658,1690,2887,3212,0
  479. DATA 4036,4519,0
  480. DATA 336,0
  481. DATA 400,745
  482. DATA 1210,1431
  483. 'MILDURA:
  484. DATA 1755,1455,2426,3222,3243
  485. DATA 1911,1943,3140,3465,0
  486. DATA 4289,4772,0
  487. DATA 589,400
  488. DATA 0,544
  489. DATA 810,1033
  490. 'MELBOURNE:
  491. DATA 1736,1376,2057,2857,3164
  492. DATA 2403,2435,3632,3957,0
  493. DATA 4781,5264,0
  494. DATA 1081,745
  495. DATA 544,0
  496. DATA 655,893
  497. 'CANBERRA:
  498. DATA 1295,1287,1966,2765,3075
  499. DATA 2721,2753,3904,4229,0
  500. DATA 5099,0,0
  501. DATA 1399,1210
  502. DATA 810,655
  503. DATA 0,304
  504. 'SYDNEY:
  505. DATA 1027,1053,1699,2494,2841
  506. DATA 2897,2929,3735,4060,0
  507. DATA 4883,5551,0
  508. DATA 1575,1431
  509. DATA 1033,893
  510. DATA 304,0
  511. t.cargo:
  512. DATA (FARM EQUIPMENT),.0065,(GENERAL GOODS ),.0064,(EXPLOSIVES    ),.01
  513. DATA (CHEMICALS     ),.009,(BEER & SPIRITS),.0075,(AUTO-BODIES   ),.0055
  514. DATA (YELLOW CAKE   ),.012,(PETROLEUM     ),.0095,(L.P.GAS       ),.0085
  515. DATA (MINERALS      ),.007,(WHITE GOODS   ),.0065,(MINE EQUIPMENT),.008
  516. DATA (ELECTRONICS   ),.0085,(SOLAR PANELS  ),.0085,(STEEL SUPPLIES),.0055
  517. DATA (AIRCRAFT PARTS),.0077,(FERROS METALS ),.006,(LEAD INGOTS   ),.0093
  518. DATA (MARINE HULLS  ),.0083,(NOTHINGBUTAIR ),0
  519. cities:
  520. DATA (BRISBANE    ),(GOONDIWINDI ),(ROCKHAMPTON ),(TOWNSVILLE  )
  521. DATA (MT.ISA      ),(AYRES ROCK  ),(ALICESPRINGS),(KATHERINE   )
  522. DATA (DARWIN      ),(GOVE        ),(BROOME      ),(PORT HEDLAND)
  523. DATA (PERTH       ),(PORT AUGUSTA),(ADELAIDE    ),(MILDURA     )
  524. DATA (MELBOURNE   ),(CANBERRA    ),(SYDNEY      ),(LOCAL HOTEL )
  525. coordinates:
  526. DATA 187,96,174,100,176,75,159,57,129,62
  527. DATA 92,88,104,78,94,34,89,27,113,23
  528. DATA 50,54,36,71,35,128
  529. DATA 122,119,129,131
  530. DATA 141,130,151,144
  531. DATA 168,134,178,126
  532. timedata:
  533. DATA " MONDAY  "," TUESDAY ","WEDNESDAY","THURSDAY ","  FRIDAY ","SATURDAY "," SUNDAY  "
  534. tpricee:
  535. DATA 200,145,85,60,28,14
  536. coname:
  537. DATA " LEWIS TRN  "," KEITHS TRN "," BRIANS TRAN"," SWIFT TRN  "," BRONCOS    "
  538. DATA " POWER TRN  "," EAGLE TRN  "," ARROW TRN  "," T.N.T.TRN  "," ALLTRANS   "
  539. DATA " DITTMANS   "," VALLEYS    "," NATIONAL   "," INTERSTAT  "," MIKES TRN  "
  540. DATA " Q.C.C.U.G. "," AMIES TRN  "," FLEETFOOT  "," HOPELESS   "
  541. checkmem:
  542. IF FRE(-1)>550000& THEN RETURN
  543. PRINT "I'm sorry but your computer does not have enough FREE RAM"
  544. PRINT "for TRUCKIN ON to operate. A 500k expansion cartridge is"
  545. PRINT "required to meet my demanding LUST for memory. SORRY Ron Lewis"
  546. STOP
  547. endprog:
  548. LOCATE 11,1:PRINT "LOADIN MAIN"
  549. WINDOW OUTPUT 2:fontset "topaz",8
  550. CHAIN MERGE "main:main1",50,ALL,DELETE sstart-eeend
  551. eeend:
  552.  
  553.